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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


i THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
t® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
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3 : 
3 & ; 
3 5 1 : 
; $ 1 : 
3 4 ea Ps 
3 8 4 . : 
§ 1 Y b 
3 10 1 1 * ; 
; 11 1 1 * ; 
3 \¢ 1 1 * ; 
i 1 : 
; * . 
oa 15 1 !* COPIES THEREGF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * : 
; 16 1 1 !* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * : 
; i ; : 7” TRANSFERRED. * : 
3 '@ * : 
; 19 15 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ; 
H 0 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ® é 
; 1 88 1 : .° CORPORATION. * : 
; 'e * 3 
3 ¢ 8 § 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * : 
4 ¢ 80 ¢ : - SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 3 
: ! * 3 
: ' * : 
: ; 0097 : LRA RARER AAA AA EERE AE AERA R EERE TEETER PY 
§ 1 : 
3 u 5 94 1 F 
3 0 0030 1 !+4+ 3 
3 1 itd 1! 3 
; § O03 ! FACILITY: RMS32 INDEX SEQUENTIAL FILE ORGANIZATION : 
s 4 0034 1 ! ABSTRACT: F 
3 5 035 1! ROUTINES TO UPDATE RRV'S : 
5 0036 1! 3 
; 7 0037 1! 3 
3 ] sit 1 ! ENVIRONMENT: 3 
3 9 0039 1! 3 
: 40 0040 1! VAX/VMS OPERATING SYSTEM 3 
i gosh | tai 
P+ ¢3 bod 1 | Ps 
3; «6446 Bote 1! : 
3 ri Rpee ' , AUTHOR: Wendy Koenig CREATION DATE: 25-JUL-78 15:24 3 
: 1 $e : } Modified by: 3 
; 49 7k 1! V03-012 JWT0149 Jim foonye 19-Jan-1984 | 3 
: 50 050 1! Correct JW10146. Actually, in the event that the new : 
s 3} 051 1! record (for a $PUT) is to be inserted before a deleted 3 
; 26 beg .Y record, NXTID should be incremented. falling through : 
; 055 1! the logic is correct as long as REC_ADDR is positioned ; 
: 4 054 1! to the next record (just after the deleted record). 3 
: 5 055 1! What was incorrect before was the case where the new | $ 
s 2$ 2$ 1! record caused a 5-bkt split, and the new record ended : 
, 0057 1! up in a bucket of its own (middle bkt). As rrvs were ; 
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created for the new cig bucket, the "if .nxtid nequ . ie 
test passed BECAUSE THE NEW RIGHT BUCKET WAS A RECLAIMED 
BUCKET! Thus, nxtid got upgremen ed once too much. 

he “if .nxt ¢ nequ 1°’ test, because 
$s quite suffic 
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e 
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The fix is to remove 
the rest of the test 
id assignment. 


JWT0146 Jim Teague 05-Dec-1983 

Fix an RRV misdirection problem for the case of a 

record S$PUT before a deleted record. The record id 

of a displaced record was incremented once too much, 
ecause when the record being inserted will end up 

n the new bucket, an id is skipped for it when 

building RRVs to point to the new bucket. That's all 
cool, but when pos_ins eql rec_addr (the position for 
insert is the current record), and the current record 

is a deleted record, RMS increments the record id (NXTID) 
and then falls almost immediately through to the bottom 
of the WHILE loop, where it will increment the new-bucket 
record id again. 


MCNO014 Maria del C. Nasr 22-Mar-1983 
More changes in the Linkages 


MCNOO13 Maria del C. Nasr 28-Feb-1983 
Reorganize Linkages 


TMKO005 Todd M. Katz 27-Jan-1983 

Add pert for RMS Journalling and RU ROLLBACK ~ tty of 
ISAM files. This involves adding a flag byte (with one bit 
defined - TBL$V_RU_DELETE) to each prologue 3 RRV table entry, 
setting the bit within RMSUPDATE_RRV for each entry that refers 
to a RU_DELETEd primary data record whose nVe is to be updated, 


jent to insure correct 


and referencing the bit within RMSUPDATE_RRV2 before deciding 
whether to return an RVU error or not. I! s unable to 
position to a RRV and the bit is clear, RMS returns a RVU error 
as before. However, if RMS is unable to position to a RRV and 
the bit is set, then RMS assumes that the Recovery Unit in 
which the RRV was deleted has successfully completed, that the 
space occupied by the RRV was reclaimed as part of a general 
space reclamation of the bucket, and that there is no need to 
return an RVU error in this case. 


TMK0004 Todd M. Katz 
Fix two bugs in RMSUPDATE_RRV. 


At one point in this routine a reference was made to a bit in 
the current record even though RMS may currently be positioned 
to the end of the bucket and there is no current record to 
reference. The fix is to make sure that the current record 
poe ttien is not at the end of the bucket before referencing 

s . 


The second bug is seen in prologue 3 files during SUPDATEs 
when the record being updated is in its original bucket and is 
to move into a new bucket as the result of the split, and the 
.record which follows this record in the bucket splitting is 


26-Jan-1983 


VAX-11 Bliss-32 V4.0-74 Page 
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: marked deleted. In this case RMS is not creating a RRV for the 

: record be ng modified in the ol¢ bucket. To fix this, RMS must 

: make sure that if it ere $s at the position of insertion 
of the updated record in its bucket scan, that an is 

created for this record in the orginal bucket. if the updated 

record was in its original bucket to begin with. 


v03-006 TMKO003 Todd M. Katz 10-Jan-1983 
In RMSUPDATE_RRV2, always release the scratch buffer that was 
used to hold | table of RRVs to be updated. The BDB for this 
scratch buffer is to be found in IRBSL_NXTSD8. Formerly this 
buffer was bot being released if the data bucket split occurred 
because of an SUPDATE and there are old SIDRs to delete; 
however, a re-writing of SUPDATE has changed this requirement. 


v03-005 KBT0233 Keith B. Thompson 23-Aug-1982 
Reorganize psects 
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V03=004 TMK0002 Todd M. Katz 06-Aug-1982 | 
The RMS cluster solution for next record positioning mandates 
that when duplicates are allowed, and a record is deleted, 
the space occupied by that record can not be completely 
recovered either during the actual deletion of the record 
(when the record is just marked deleted, and the space occupied | 
by phe data portion recovered if the file's prologue version 
is 3), nor during the space recovery that is attempted when 
there is insufficient room in the bucket to accomidate a new 
record, or the increased size of an existing record. Therefore, 
the routine RMSUPDATE_RRV must be modified, so_that RRVS are 
never created for deleted records in prologue 3 files, and so 
that onty deleted RRVs with no RRV pointers are created for 
those deleted records in prologue 2 files which are in their 
original buckets and require an RRV to preserve their ID from 
being recycled. | 
| 


v03-003 TMKO001 Todd M. Katz 02-Jul-1982 
Implement RMS cluster solution for next record positioning. 
As the NRP cell has been eliminated and the next record 
erri scents context is now kept in the IRAB, refer to the 
RAB to obtain the RFA_of the new/changed primary data record. 
Also, as the module RM3NRP is ereepeeer ing move the routines 
RMSCODE _VBN and RMSSELECT_VBN to this module and make them 
ocal routines. 


v03-002 MCNO012 Maria del C. Nasr 11-Jun-1982 
Eliminate overhead at end of data bucket that was to be 
used for duplicate continuation bucket processing. 


V03-001 SPR39795 L J Anderson 12-Mar-1982 
In the case of a bucket split when run out of IDs, do 
NOT update an RRV of a deleted record. The deleted RRV 
has the pointer epece squished out, updating the RRV 
results in a trashed bucket. 


v02-018 KBT0007 K B Thompson 15-Feb-1982 | 
Add code to handle reclaimed bucket next-record-IDs and 
add subtitles 
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VO2-017 MCNOO11 Maria del C. Nasr 28-May-1981 

More changes required for prologue 3 files. 
v02=-016 MCNO006 Maria del C. Nasr 16-Mar-1981 

Increase size of record identifier to a word in NRP, and 

other local structures. 


VO2-015 REFORMAT C Saether 01-Aug-1980 22:38 


REVISION HISTORY: 


Wendy Koenig 28-SEP-78 9:11 
x0002 = SET RRV_ERR ON UPDATE ERROR, AND GO ON TO NEXT RRV 


wend a 4 29-SEP-78 14:46 
X0003 = ADJUST POS_INS ON ANY SQUISH, NOT JUST IF BIG_SPLIT 


Christian Saether, 12-OCT-78 12:20 
X0004 = do not release rrv buffer when in update mode 
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Wendy Koenig, 12-OCT-78 14:45 
x0005 = TAKE ALL THE NRP STUFF OUT OF HERE 
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! 

; 

i 

; 

; 

: 

i 

; 

; 

; 

! 

; 

' 

i 

; 

; 

; 

; 

i 

! 

! 

! Wendy Koeni 17-OCT-78 15:40 
X0008 - CHANGE UPDATE_RRV FOR SUPDATE 
1 
i 
; 
; 
; 
: 
; 
i 
; 
i 
; 
: 
i 
: 
; 
; 
i 
; 
; 
; 
; 
i 
; 
i 


Wendy Koenig, 24-OCT-78 14:03 
X0007 = MAKE CHANGES CAUSED BY SHARING CONVENTIONS 


Christian Saether, 24-OCT-78 17:38 
X0008 = give UPDATE_RRV 1 more byte at end of buffer 


| 
| 
| 
26-OCT-78 11:29 
| 
| 
| 
| 
| 
| 
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wendy Koenig 
x0009 = GET RID OF DEFINITION OF IRCSB_RRV_ID WHICH IS NOW IN THE LIBRARY 


wendy Koenig 31-OCT-78 14:09 
x0010 = FIX B1G, ONLY USE VBN_MID IF BIG_SPLIT 


Christian Saether, 3-NOV-78 8:21 
X0011 - fix incorrect use of BDBSW_SIZE to BDBSW_NUMB 


wendy Koenig. 28-NOV-78 11:38 
x0012 - LOCK BUCKET WHEN UPDATING RRV'S 


cocrgtion Saether, 15-JAN-79 21:41 
x0015 = eliminate potential deadlock going for rrv's 


Wendy Koenig 26-JAN-79 9:20 
X0014 = GET RID OF SETTING VALID 


PIPIMPIMPINPINPINININIDS 2 2 SO OS Ow 


LIBRARY ‘RMSLIB:RMS'; 
REQUIRE “*RMSSRC:RMSIDXDEF'; 
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; + 93 1 $ 
; , 32 } } Define default PSECTS for code. : 
3 § 38 1 PSECT 3 
; 97 (1 CODE = RMSRMSS(PSECT_ATTR), : 
; ¢ : PLIT = RMSRMSS(PSECT_ATTR); | ‘ 
3 0 ! } Define some local MACROS. : 
; 8 1 MACRO : 
3 9 05 1 IRCSL_RRV_VBN = 3-0 -35-8 Be ! Location of RRV VBN in record ; 
3 re Be : IRSSL_RRV_VBN = 5,0,32,0 %, ! new location in prologue 3 files | : 
; 4g 06 1 ! The following macros which define the entries in the local table used for : 
: 26 0307 1 ! RRV updating, have been reordered to optimize prologue 3 file processing. : 
: 244 0308 1 ! Those fields that have not chenged in size, have been placed up front, so H 
3: 245 0309 1 ! that there are the least possible position variants, _The size of eac : 
; 246 0310 1 ' RRV entry in the table is 10 bytes long for prologue 3 files, and 7 bytes : 
; of Bat 3 : for previous prologue versions. ‘ 
; 249 $38 1 TBLSW_FFB = 0,0,16,0 %, ! stores table size ; 
; 250 0314 1 TBL$B—NEW_VBN = 0.0.8 i? * i new VBN index ; 
: 251 0315 1 TBL$L-OLD-VBN = 1,0,32,0 %, i old VBN value ; 
; 26 0316 1 T ~NEW_ID = 5,0.8,0 %, ! new record id : 
: 25 0317 1 TBL$W"NEW" 1D = 5'0.16,0 %. i new record id (plg 3) F 
; 334 0318 1 TBL$B~OLD"] = 6:0,8,0 &, i old record id ; 
: 255 0319 1 TBL$W-OLD-ID = 7,0,16,0 &. i old record id (plg 3) | ; 
; 256 0320 1 TBL$B_FLA = 9:0.8,0 %. ! flag byte sprete ue 3) 3 
3 rt B85, : TBLSV_RU_DELETE = 9,0.1,0 %, ! record is RU_DELETEd ; 
; 259 0338 1 FLG$V_POS_INS = 0,0,1,0 %, | : 
3 $60 0324 1 FLGSV_SPLTT_1 = 0,1,1,0 %, | : 
: 261 0325 1 FLGS$SV_SPLIT"2 = §-¢-1-2 i, | : 
° $06 B358 1 FLGS$V_UPD_POS = 0, 1,0 * | Py 
; 26 0327 1 FLGSV_REC_DEL = 0,4,1,0 2; | 3 
: 264 0328 1 | 3 
; 265 0329 1 ! Linkages. 3 
; 266 0330 1 | : 
; 267 0331 1 LINKAGE 3 
; 268 tht 1 L_PRESERVE1 | F 
> 269 0333 1 LTRABREG_ 4567, | ; 
3 270 0334 1 LRABREG_457, ; 
: e71 0335 1 L_RABREG_ 567, 3 
: 2E B38 1 L_RABREG 67, : 
» aT 3 1 L-RELEASE, F 
: 276 0338 #1 3 
3; 275 0339 1 ' Local Linkages : 
: 7 tok 1 § : 
; 7 41 1 RLSLINKAGE = JSB() : : 
: 78 b3e8 1 GLOBAL (R_IRAB), : 
3 79 34 1 RL$SQUISH = JSB (REGISTER = 3, REGISTER = 4) : 
; 80 0344 : GLOBAL (R_REC_ADDR); : 
; 8 +09 1 ! Forward Routines 3 
; a 347 1! F 
3 (284 =08 1 FORWARD ROUTINE 3 
; 285 0349 1 RM$SQUISH : RLSSQUISH; 3 
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External Routines 
RMSGETNEXT 
RMSRECORD 
RMSRECORD 
RMSRELEAS 
RMSRLSBKT 
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eareny 
\V04-000\ 
RMSFIND BY_ID, RMSGETBKT 


LE 

NT 

RN 

RN RMSGETNEXT-REC, RMSRECORD_ID 
RN RMSRECORD_VBN, RMSRELEASE 

RN RMSRLSBKT 


] 
; 00 63 1 XSBITL "RMSCODE_VBN' ; 
; 91 6 ROUTINE RMSCODE-VBN (VBN) : RLSLINKAGE = | ; 
: 08 66 1 f+ : 
; 304 or 2 ft | ; 
; 305 6 ] : FUNCTIONAL DESCRIPTION: ‘ 
3 09 6 % 1 ! Converts the new VBN into a 1,2,3 to be stored away temporarily | : 
3 Ie 3 4 } : NOTE: CODE_VBN and SELECT_VBN are complimentary routines. : 
; 10 Q ig 1 ! CALLING SEQUENCE: | F 
5 11 8 74 =«1«8! BSBW RMSCODE_VBN() . 
: \¢ >)h6U3 3 
3 1 0376 1 ! INPUT PARAMETERS: $ 
3 14 0377 1! the new VBN 3 
3 15 0378 1! 3 
; 16 0379 1 =! IMPLICIT INPUTS: ’ 
; + baat : IRAB == VBN_RIGHT, VBN_MID, RFA_VBN : 
H 19 Oe¢ 1 ! OUTPUT PARAMETERS: b4 
: 320 0383 1! NONE ‘ 
3 «CUBel 0384 1! 3 
; $6 0385 1 ! IMPLICIT OUTPUTS: ; 
s Se 0386 1! NONE 3 
; $e 0387 1! 3 
; 25 0388 1 ! ROUTINE _ : 
3 #58 0389 1! Vode s 
oar 0390 1! 3 
: 328 0391 1 ! SIDE EFFECTS: 5 
: 4 B336 . 3 NONE 3 
3 0 0393 1! 3 
.; ae 0394 1 !e- 3 
3 $8 0395 (1 3 
3 3 0396 2 BEGIN 3 
3 34 0397 2 $ 
s 390 0398 2 EXTERNAL REGISTER 3 
i; 6336 0399 2 R_IR 3 3 
2.) 0400 r 
3 38 0401 RETURN ( : 
3 39 ot 4 3 
Z 40 040 SELECTONE .VBN OF 3 
; 41 0404 SET 3 
; 4¢ 0405 . IRABCIRB$L_VBN_RIGHT]] : 1; ; 
; 34 049  IRAB 1RBS$L-VBNTMID J} : ¢: : 
; 344 40 . IRABCIRB$L-RFA-VBNJJ : 3; ; 
3 45 0408 TES); 3 
5 6 0409 3 
; 347 0410 1 END; ' { end of CODE_VBN } : 
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ZSBTTL "RMS 
ROUTINE RMS 
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now 


ELECT_VBN' 
ELECT_VBN (VALUE, VBN) : RLSLINKAGE = 


++ 


FUNCTIONAL DESCRIPTION: 


o 
1$-Se0-1984 02:00: 


Converts the 0,1,2,3 which was stored in the RRV table into a relevant VBN. 
NOTE: CODE_VBN and SELECT_VBN are complimentary routines. 


CALLING SEQUENCE: 
BSBW RMSSELECT_VBN() 


INPUT PARAMETERS: 
VALUE -- 0,1,2,3 from the table entry 


VBN -- if value is 0, VBN is the value we want returned 


IMPLICIT INPUTS: 
IRAB == VBN_RIGHT, VBN_MID, RFA_VBN 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 


the actual VBN associated w/ this entry 
SIDE EFFECTS: 
NONE 


BEGIN 
EXTERNAL REGISTER 

R_IRAB_STR; 
RETURN ( 


CASE .VALUE FROM 0 TO 3 OF 


SET 
0] : .VBN; 
F : .TRABCIRB$L_VBN_RIGHT); 
é : . RAB 1RBSL~VBN~MID 4; 
} : .IRABCIRBSLRFA_VBNI; 
TES); 
END; 
03 00 04 AE CF 00000 RMSSELECT_VBN: 
CRSEL 


VALUE, #0, #3 


EN od Pa 
:CRMS.SRCIRM3RRV.B32;1 


ge 9 


(3) 


: 0453 


<2 
2% 


RM3RRV 
v04-000 RMSSELECT_VBN 
0019 0013 000D 
50 
50 
50 
50 


; Routine Size: 35 bytes, Routine Base: 


; 400 0462 #1 


F 
19 
14- 


08 AE 890 2 
oosc §=6 C9 i 3$: 
0090 C9 18 4 

01D 

70 «AD a 5 

0002 


RMSRMS3 + 0028 


RA 
Sep-1986 18:01:39 DL SKSVMSHAST 


0008 00005 1$: 


» WORD 


iss- 
AST 


140(IRAB), RO 
144(IRAB), RO 
112(1RAB), RO 


32_V 
ER: CRMs she RM3RRV.B32; "ae 
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4 ; 463 1 ZSBTTL ‘RMS$SQISH' 
: rc) 1 ROUTINE RMSSQUISH (E0B, SQUISH) : RLSSQUISH = 
405 466 J i+ | 
tbe re FUNCTIONAL DESCRIPTION: 
409 <0 do the squishing w/o destroying all the registers 
CALLING SEQUENCE: 
bsbw rm$squish (.eob, .squish); 


INPUT PARAMETERS: 
eob -- address of end of data to be moved 
squish -- address of where data is to be moved into 


IMPLICIT INPUTS: | 
| 


De Se Ge Se Se Se Se Be Be Se Ge Se Be Fs Oe Se Se Ge Se Ge Se Ge Se Oe Se Se Se Se Se SH Se Se Oe Se Se Se Oe Se Se Os Ge ees 


1 

1 

1 

1 

1 

1 
410 1 
411 1 
tig 1 
41 1 
414 1 
415 1 
416 1 
417 1 
418 1 
£33 8 : rec_addr -- address of beginning of data to be moved 
421 Beng 1 OUTPUT PARAMETERS: 
4 4 04 1 NONE 
4 484 1 
424 485 1 IMPLICIT OUTPUTS: 
425 486 1 NONE 
426 0487 1 
427 0488 1 ! ROUTINE VALUE: 
428 0489 1 rmssuc always 
429 0490 1 
430 0491 1 ! SIDE EFFECTS: : 
431 0492 1 some data records have been squished out 
43¢ 0493 1 | 
43 0494 1 !-- 
434 0495 1 
435 049 BEGIN | 
436 049 
437 0498 EXTERNAL REGISTER 
438 0499 R_REC_ADDR_STR; 
439 0500 
440 0501 CHSMOVE(.EOB - .REC_ADDR, .REC_ADDR, .SQUISH); 
441 beng RETURN RMSSUC(): 
ry 050 ‘ 
44 0504 1 END; ! { end of routine } 

| 


3C BB 00000 eames 


USHR Bea f a5. Ree R5> ; 0464 
53 2$ 000 suet¢ net ; 0501 
64 96 5 000 MOVC ~(Ree *ADOR), (SQUISH) : 
1 DO 00009 MOVL 4% ; 0502 
C BA Bebe POPR Wick R3,R4,R5> ; 0504 
5 0000E RSB : 


; Routine Size: 15 bytes, Routine Base: RMS$RMS3 + 004B 
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ibese -1984 00:47 VAX-11 Bliss-32 
RMSUPDATE _RRV 12-88-1382 Be DISKSVMSMASTE 


GLOBAL ROUTINE RM 


000 
; 
448 
9 


ZSBTTL SRASUBOATE RRV' 
OPDATE_RRV : RL$RABREG_67 NOVALUE = 


+4 


ae 
HAASAN & 
CODNAUNE WO 
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Fe ot ot et ot ot te 


PIPPONPOPOPON 2 2 OOOO 
AUS WN $$ O OONOUE WN $0 OONAU EWR OVO NOAOU SW ODOONIO 


ce ee me ee ee ee ee ee ee a ee ed ed ed dd ed od ed dd od wd dd 


Be te Be Se Be Be Se Be Se Se Se Se Ge Be Se Se Be Se Fe Fe Se Ge Ge Se Ge Se Ge Ge Ge Oe Se Se Ge Ge Se Ge Se Se Se Se Se Ss oe Se Se FH Ss Se Se FHSS SH Se SH Se Seas 


SOOTOOOOCOOOOOOOOOCOCOOOOOCOSOOSOOOCOOCOOCOOOOOOOO: 


MOV NOUS WN —-O0On 


i FUNCTIONAL DESCRIPTION: 


Create RRV's for records that moved out of this bucket w/o RRV's 
and make a table so that records that moved before can be updated later. 
Do not make an entry in the table if the record has been deleted. 


If a deleted record in its orginal bucket is encountered, make a RRV 

for it if and only if the file's prologue version is not 3, and that RRV 
is a r+ frags RRV without a pointer (to reserve the ID so it can not be 
recycled). 


CALLING SEQUENCE: 
sbw rm$update_rryv 


INPUT PARAMETERS: 
NONE 


IMPLICIT INPUTS: veh ee 
IRAB == curbdb in irab meg Bighe the original bucket 
nxtbdb describing the extra buffer being used to build the table 
IDX_DFN = IDX$V_DUPKEYS 
IFAB = IFB$B_PLG_VER 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
nothing 


SIDE EFFECTS: ; 

The records that were moved out are physically deleted and rrv's are 
built for all of them. 

The bucket is marked dirty and valid, 

Another buffer pointed to by nxtbdb is used to make a table to be used 
to update rrv's in other buckets, : 

The split points except split itself and possibly pos_ins are destroyed. 

Those two can still apply to the existing bucket 

REC_ADDR is destroyed, but it was not an input. 

Some convuluting stuff is done in the $update case, when there was an 
original record. 


BEGIN 


19 

RMSRR 16-Sep-198/ 00:47 VAX-11 Bliss-32 V4.0-74 Page 14 
y0e-000 RMSUPDATE _RRV a ots rant Se HS ae ot ed a 

63 

i LOCAL 

4 TABLE : REF BBLOCK, 

NXTID : WORD, 

é REAL_ END : REF BBLOCK, 

é OB : REF BBLOCK, 


WI 
~NO 
—-o 


VBN 6 
POS_INS : REF BOL OCK. 
FLA : BLOCK (1J, 

RRV_VBN, 


VBNT 
OLD_{p> : WORD; 


GLOBAL REGISTER 
R_BKT_ADDR_STR; 


wr 


REC_ADDR = .BKT_ADDR + pJRABTIRGSY. 
EOB™= .BKT_ADDREBKTSwW der bye, + re ADDR; 
REAL_END = .BKT_ADDR * .BBLOCKC.IRABCIRBS$L_CURBDBJ, BDBSW_NUMB); 
! The real end of the bucket for prateoue 3 files is different, since 
! there is some extra information at the end. The checksum byte is 
correctly accounted for, so add it back. 
if }FABLIFBSB_PLG_VER] EQLU PLGSC_VER_3 
REAL_END = .REAL_END = BKTSC_DATBKTOVH + 1; 


POS_INS = .BKT_ADDR + .IRABCIRBSW_POS_INS); 
SQUISH = .REC_ADDR; 


! Set Flag Position Insert, if intend on inserting the new record ( or 
updating the record ) in the old left hand side bucket 


IF .POS_INS LSSU .REC_ADDR 
FLAGCFLG$V_POS_INS) = 1; 
0605 IF .POS_INS EQLU .REC_ADDR 
. IRABCIRB$V_REC_W_LOJ 
FLAGCFLG$V_POS_INS) = 1; 
Set up the starting vbn and the next-record-ID 
IF_ .IRABCIRB$V_BIG_SPLITJ 
THEN 
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SQUISH : REF BBLOCK, 


3s So 
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wr 


PAAAASSO = 
oo 
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BEGIN 
VBN = .IRAB C IRBSL_VBN_MID J; 
pte = .IRAB C IRBSW_NID_MID J 


E 
ELSE 
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BEGIN 
VBN = .JRAB C IJRBSL_VBN_RIGHT J; 
WAT ID = .IRAB C IRBSW_NID_RIGHT J 


! Skip through bucket, deciding where the RRV's for each record should be 
! put -- If in the old (left) Bucket, put it at the end of that bucket. 
! If there is an RRV in another bucket, already; then it needs updating, 
' build an entry in the table. Do not build an entry, if the record has 
been deleted. 
— -REC_ADDR LEQU .E0B 
BEGIN 
BUILTIN 
AP; 
LOCAL 
DIFFERENCE : WORD; 
! if rec_addr equal to the eob or we're at an rrv (virtual eob ), 
' we still need to do the update for a potential updated record at the 
eob. but don't do it twice 
IF REC ABR EQLU .E0B 


.REC_ADDRCIRCSV_RRV) 
THEN 


IF .FLAGCFLG$V_POS_INS) 
NOT .IRABCIRBS$V_UPDATE) 
EXITLOOP; 
If the record is deleted, then save this status in the FLAG byte. 
IF 1 eee NEQU .E0B 
-REC_ADDRCIRCS$V_DELETED) 
FLAGCFLGS$V_REC_DEL] = 1 
FLAGCFLGS$V_REC_DEL] = 0; 
DIFFERENCE = .REC_ADDR = .BKT_ADDR; 
! if more than 1 new bucket, check to see if we've passed a split point 
! if so, the vbn and nxtid have to be changed 
if gJRABCIROSV_B1G_SPLITI 
4 BEGIN 
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4 


SHAAN BT BBS BS ES ETI BAD ITU BB TUTE 


! if this is the pos for insert, and the record really and truly 

' belongs here, increment the nxtid but make sure that we can never 
! come back to pos_ins more than once if this is an update and the 
! record belonged In the middle bkt all by itself, set up vbni to 
! indicate suc 


VBN1 = .VBN; 
IF .REC_ADDR EQLU .POS_INS 


1500-1984 79:09:35 DISkSumSmASTER-CKMS. SRCSAMSRRV.652;1°°%° (35. 


IF .DIFFERENCE EQLU .IRABCIRB$W_SPLIT_1) 
NOT -FLAGCFLGSV, SPLIT_1] 


9 | 
6 
| 


THE 
IF (,FLAGCFLGS$V_POS_INS] 
NOT .IRABCIRBSV_REC_W_LOJ) 
— - IRABCIRBSV_UPDATE) 


BEGIN 
FLAGCFLGSV_SPLIT_1] = 1; 

Use the RFA bucket 

VBN = .IRAB C IRBSL_RFA_VBN J; 


! If there is no RFA bucket then use the right bucket 
else its ok to use the RFA bucket and next-record-ID 


if .VBN EQLU 0 
THEN 


VBN = .IRAB C IRBSL_VBN_RIGHT J; 
NXTID = .IRAB C IRBSW_NID_RIGHT J 


2 
=< 
“4 
= 
o 
" 


.IRAB C IRBSW_RFA_NID J 
END; 
IF .DIFFERENCE EQLU .IRABCIRB$W_SPLIT_2) 
ei NOT .FLAGCFLG$V_SPLIT_2) 
BEGIN 
FLAG C FLGS$V_SPLIT_2 ] = 1; 


VBN = .IRAB C IRBSL_VBN_RIGHT J; 
NXTID = .IRAB C IRBSW_NID_RIGHT J 


END; 
END; 


sipaenthnastitneliestneiniasipieetaapietihmimcidtaatatie — 
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RMSUPDATE_RRV ats 4 96:99:95 DISKSVMSMASTER: CRMS.SRCJRM3RRV.B32;1 . (5) | vOé 

: 676 7 AND | 
; 675 735 NOT .FLAGCFLGSV_POS_INS] | :] 
5 o78 7 § THEN 3] 
; 67 737 4 BEGIN ; | 
; 678 7 : 4 FLAGLFLG$V_POS_INS] = 1; : | 
; 67 7 4 3 | 
; 680 740 4 IF_. IRABCIRBSV_UPDATE) | 2 
; 683 741 4 THEN :] 
; 68¢ tae BEGIN : ] 
; 68 74 FLAGLFLG$V_UPD_POS) = 1; i] 
; 684 744 : 4 
i § 5 045 IF .JRABCIRBSV_BIG_SPLITI : 
: 68 74 g (. IRABCIRBSW_SPLIT] EQLU .IRABCIRBS$W_SPLIT_1]) 3) 
; 688 O748 THEN ; 1 
: 689 749 6 BEGIN 3 | 
; 690 750 6 FLAGCFLG$V_SPLIT_1] = 0; i] 
; (691 751 6 VBN1 = .IRABCIRBSL_VBN_MIDJ : 1 
; 69 7 ¢ END : ] 
; 69 Be END : 1 
: 694 754 | 
; 695 Bre? 4 ELSE 3] 
; 696 738 2 BEGIN - 
: 697 075 ! | 
3 ro | 4834 5 Ok, here's the scoop on what's going down here: : 
3 5 $760 ! If this is the position for insert, AND the new 3 1 
; 701 0761 ! record doesn't go into a bucket ail by itself 3 1 
; 70 8708 5 ' (i.e., a 3-bkt split), AND the new record doesn't $1 
; 70 876 é : 9° into the old bucket, then skip an id to account 3 1 
; 704 764 ! for the id taken up by the new record when it winds $1 
; a Oree ; : up in the new bucket. : | 
: 707 eS IF .IRABCIRBSW_SPLIT] NEQU .IRABCIRB$W_SPLIT_1] 3 1 
; 708 0768 N $1 
; 709 0769 NOT .JRABCIRB$V_REC_W_LOJ 3 1 
: 710 0770 3] 
: 711 0771 THEN 3 | 
; le ore NXTID = .NXTID + 1 3 | 
: 71 77 END 3] 
> 216 0774 END; | 3] 
a Or7% wp = 3 | Zz 
i 5S 558 | 1 
; 4718 4 BEGIN 3 | 
3; 719 4 31 
; 720 4 GLOBAL REGISTER | a 
: Fel 4 R_BDB; : | 
. # § 4 If .FLAGCFLGS$V_UPD_POS) : 
3: 726 4 THEN 3] 
: 725 4 RRV_VBN = .JRABCIRB$L_PUTUP_VBN) es 
: 7 $ 4 ELSE - 
. © 4 RRV_VBN = RMSRECORD_VBN(); 2 
3 4 3 ; ND; : 
: 730 0 ! if the VBN's are equal, then this record has never moved and, thus 31 
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' it needs an RRV; otherwise, it has an RRV elsewhere. NOTE that there 
' is no need to create an RRV for this record (even if the the VBNs 


: ore equal) if the record is deleted and the file is a prologue 


iF -RRV_VBN EQLU .BBLOCKC.IRABCIRBSL_CURBDBJ, BDBSL_VBN) 
(NOT (.1FABCIFBSB_PLG_VER] GEQU PLGS$C_VER_3 
-FLAGCFLGSV_REC_DELJ) 
-FLAGCFLGS$V_UPD_POS]) 
BEGIN 


LOCAL 
RRV_SIZE; 


IF .FLAGCFLGSV_UPD_ POS) 

eLgecrent® = -IRABCIRBSU_PUTUP_ 1D] 
OLD_ID = RMSRECORD_1D(); 

IF. 1FABCIFBSB_PLG_VER] LSSU PLGSC_VER_3 
If NOT .FLAGCFLGSV_REC_DELJ 

RRV_SIZE = 7 

ise RRVASIZE = 2 

RRV_SIZE = 9; 


! if there is not enough physical room at the end of the bucket to 
build an rrv, make enoug 


if (£08 + .RRV_SIZE) GEQU .REAL_END 
BEGIN 
IF NOT .FLAGCFLGS$V_UPD_POS) 
RMSGETNEXT_REC(); 


RMSSQUISH(.E0B, .SQUISH); 
EOB = .E0B - (.REC_ADDR = .SQUISH); 


: uatortunprety. if we squish records out, we also have to 
} update all the pointers to the bucket 
IF .IRABCIRB$V_BIG_SPLITJ 
THEN 
BEGIN 
IF .SQUISH LEQU .BKT_ADDR + .IRABCIRBS$W_SPLIT_1) 


ss. ss . 4s 8 s 8 2 88 6286 8 Dd 8 8 8 od ee ee 


788 4 THEN 

789 4 BEGIN 

231 2 IF .BKT_ADDR + .IRABCIRBSW_SPLIT_1] LEQU .REC_ADDR 
193 e3 IRABCIRBSW_SPLIT_1] = .SQUISH - .BKT_ADDR 

795 85 IRABCIRBS$W_SPLIT 1] = .IRABCIRBS$W_SPLIT_1] - 
796 85 (,REC_ADDR7= .SQO0ISH) 

Bo om 

799 85 JF ,SQUISH LEQU .BKT_ADDR + . IRABLIRBSW, SPLIT 2] 

801 3 BEGIN 


IF .BKT_ADDR + .IRABCIRBSW_SPLIT_2] LEQU .REC_ADDR 
IRABCIRB$W_SPLIT_2] = .SQUISH = .BKT_ADDR 
IRABCIRBSW_SPLIT 2] = .IRABCIRB$W_SPLIT_2] - 


(.REC_ADDR™= .SQOISH) 
END; 


SARS 


END; 
IF _ .SQUISH LEQU .POS_INS 
THEN 
BEGIN 
IF _ .POS_INS LEQU .REC_ADDR 
POS_INS = .SQUISH 


ELSE 
~ POS_INS = .POS_INS = (.REC_ADDR = .SQUISH) 


REC_ADDR = .SQUISH; 
END 


Else we do not have to squish a record out. 
ELSE 
IF NOT .FLAGCFLG$V_UPD_POS) 
RMSGETNEXT_REC(); 


Build the RRV at the end of the bucket and update E0B 
EOBLIRC$B_CONTROL) = 0; 
EOBLIRC$V_RRV) = 1; 
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FW 9 OONOU EWN —"OOCONOUS WN -O0OOon 
50.0000 09 09 09 09 09 09 09 09 SI NI NII NIN NOAA AAAOA AO 


WIWNIAIAIAIPPOPIPIPOPDPINPONUD 2 9 St OS OOO 
0 00 Cd Cd Cd Od Cd Od Od Od Cd OD OS OD Od Od Od Cd Od OD 09 09 C9 OD C9 Cd 09 0D 0D 09 CD CD CD CD OD CD COD OD. 
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! If the record is deleted and the file is not a prologue 3 
file then created a two-byte deleted RRV for the record. 
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1b-se -1984 00:47 VAX-11 Bliss-32 V 
ee aee 1 9g: 00: 9 DISKSVMSMASTER:CR 


IF_.FLAGCFLG$V_REC_DELJ 
THEN 
BEGIN 
EOB IRCSV_NOPTRSZ] = 1; 
EOB IRCSV-DELETED = 1; 
EOBLIRC$B-1D] = .OLD_IO; 
FOB = .E0B + 2; 
END 
ELSE 
BEGIN 
EOBLIRCSV_PTRSZ] = 2; 
EOBLIRC$B-1D)] = ,OLD_ID; 
EOBLIRC$B-RRV_ID] = -NXTID; 
FOBLIRCSL-RRV-VBN] = .VBN1; 
FOB = .E0B +"$BYTECTFSET(IRCS$L_RRV_VBN) 
= + $BYTES: ZECIRCS$L_RRV_VBN) ; 
ELSE 
BEGIN 
EOBLIRC$V_PTRSZ) = 2; 
EOBLIRC$W-1D] = ,OLD_ID; 
EOBLIRC$W-RRV_IDJ = <NXTID; 
EOBLIR3SSL-RRV-VBN) = .VBN1; 
FOB = .EOB + SBYTEOFFSET(IR3$L_RRV_VBN) 
ne + $BYTESIZECIR3$L_RRV_VBN) ; 
END 


the record has moved before, so make an entry in the table so we can 
update the record's old RRV, later. Make an entry only if the record 
is present (ie, do not update deleted RRV's). The only time there will 
be a deleted record in the middle of the bucket, is if this split is 
happening because of no more id's available (not because of Lack of 
space). In this case, the routine to squish the deleted records out 

of the bucket is not called, as space is not the problem. 


SE 
IF NOT .FLAGCFLGS$V_REC_DEL 
THEN 
BEGIN 
TABLECTBL$B_NEW_VBNJ 
TABLECTBLS$L~OLD~VBNJ 


if 5 FARE EF OSE PLS vee? LSSU PLG$C_VER_3 


BEGIN 
TABLECTBL$B_NEW_ID] = .NXTID; 
IF ,FLAGCFLGSV_UPD_POS) 
TABLECTBL$B_OLD_1D] = .IRABCIRBSW_PUTUP_ID]J 
TABLECTBL$B_OLD_ID] = .REC_ADDRCIRC$B_RRV_ID); 
TABLE = .TABLE + 7; 
END 


RMSCODE_VBN(.VBN1); 
-RRV_VBR; 


53° sae$ 
MS.SRCJRM3RRV.B32; 1 
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RMSRRV 16-Sep-1984 02:00:47 VAX-11 Bliss-32 V4.0-74 Page 21 
v04-000 RMSUPDATE_RRV 1o28e 71382 ABEL DLEKSVMGMASTER SCAMS SRCIRMSRRV.B32;1 : &) | 
; 90 0962 4 ELSE 
; W 96 BEGIN 
; 904 964 TABLECTBLS$W_NEW_ID] = .NXTID; 
; 905 965 
; 90 96 IF_ .FLAGCFLG$SV_UPD_POS] | 
; 90 096 THEN 
; 908 0968 TABLECTBL$W_OLD_ID] = .IRABCIRBSW_PUTUP_IDJ 
; 909 969 ELSE 
: 910 970 6 BEGIN 
: ae 948 ? TABLECTBL$W_OLD_ID] = .REC_ADDRCIRC$W_RRV_IDJ; | 
; 318 0378 6 ! If the current record was deleted within a Recovery 
; 914 974 6 ! Unit, then save this information in the flag byte 
>; «915 0975 6 ' of the table entry. 
; 916 3378 6 : 
s Pir 0977 6 IF_ .REC_ADDRCIRC$V_RU_DELETE] 
; 918 0978 6 THEN 
; 919 0979 g TABLECTBLS$V_RU_DELETE]) = 1; 
; 920 0980 END; 
: 921 0981 § | 
3 356 0982 5 TABLE = .TABLE + 10; 
; 5 0983 4 END; 
: 924 0984 4 
; 925 0985 4 IF NOT .FLAGCFLG$V_UPD_POS) 
; 988 0986 4 
3 Ver 0987 4 RMSGETNEXT_REC() 
; 928 0988 4 
; 9 0989 4 END ! end of else record has moved before ! 
; 930 0990 4 
; 931 0991 4 ! Else the current record is a deleted record, then just get the next 
; 836 0992 4 i record. (Do not need to check FLG$SV_UPD_POS, because on a bucket 
: 93 0993 4 ' split because of no more id's available, it was on an insert oper- 
: 934 0994 4 ! ation, not an update). 
3 935 0995 4 : 
; 936 0996 ELSE 
: 937 0997 RMSGETNEXT_REC(); 
; 938 0998 
; 939 0999 ' bump the nxtid 
: 940 1000 ! 
3; (941 1001 NXTID = .NXTID + 1; 
; aeg 1908 . 
; 94 100 ' clear the ‘‘at pos_for_insert in update mode"’ flag 
: 944 1004 ! 
: 945 1005 FLAGCFLG$V_UPD_POS] = 0; ’ 
5 ae8 44 END; ! { end of while loop } 
; 948 1008 ! if there still are records that need to be squashed out, do it 
: 949 1009 ! 
; 950 1010 
3; «6951 1011 IF .SQUISH NEQU .REC_ADDR 
3 326 I9i¢ THEN 
; 101 BEGIN 
: 954 1014 RMSSQUISH(.EOB, .SQUISH); 
s 935 1015 EOB = .E0B - (.REC_ADDR = .SQUISH); 
; 956 Sig REC_ADDR = .SQUISH; 
3; 957 131 ND; 
; 4958 1018 


10 
RMSRRV 16. Sep-1984 00:47 VAX-11 Bliss-32 V4.0-74 Pa 
v04-000 RMSUPDATE_RRV 14- Hae 1 96:90:30 TT EKSVMOMASTERSLURS SACIRMSRRV.832;1 ot (3 
; 323 } 38 } update the freespace word 
; 261 1 1 BKT_ADDRCBKTSW_FREESPACE] = .E0B = .BKT_ADDR; 
3 oer 10 } mark the end of the table in its first word for future reference 
; 965 1025 BEGIN 
; se 10 § 
; 96 10 LOCAL 
3 308 19 § BEG_TABLE : REF BBLOCK; 
: 970 1030 BEG_TABLE = .BBLOCK - JRABEIRESL -NXTBOBI BDBSL_ADDR); 
; 971 19 1 BEG ~TABLEC TBI $d ne _TABLE 
3 378 1988 ; RETURN: 
: 974 1034 
; 975 1035 (1 END; ! { end of routine } 
3C BB 00000 RMSUPDATE_RRV:: 
POSHR #*M<R2,R3,R4,R5> : 0507 
SE 1C C2 00002 SUBL2 #28, SP : 
7E D4 00005 CLRL FLAG : 0580 
50 3c. )6=6— AD-—s«#O:«00007 MOVL 60(IRAB), RO 3 0581 
52 18 AO 02 C1 0000B ADDL3 #2, 24(R0), TABLE ; 
50 20 AY DO 00010 MOVL 32(IRAB), RO ; 0582 
55 18 Ao b0 00014 OVL 24(RO), BKT_ADDR : 
56 4A AY 3C 00018 MOVZWL 74(IRAB), REC_ADDR ; 0583 
56 55 CO Q001C DDL2 BKT_ADDR, REC”ADDR ; 
53 04 AS 3C OOO1F MOVZWL 4(BRT_ADDR), EOB 3 0584 
53 55 CO 00023 DDL2 BKT_ADBDR, E08 : 
51 14 AO 3C¢ 00026 MOVZWL 20(RO), R1 > 0585 
6145 9F OOO2A PUSHAB (R1)CBKT_ADDRI ; 
03 00B7 CA 91 0002D CMPB 183(IFABY, #3 : 0591 
02 \s 00032 BNEQ 1$ 3 
6E p 00034 DESL REAL END : 0593 
50 48 AQ 3C 00036 18 MOVZWL 72(IRAB), ; 0595 
10 AE 55 50 C1 O003A ADDL3 RO, BKT_ADDR, POS_INS : 
08 AE 56 DO 0003F MOVL REC_ADDR, SQUISH : 0596 
56 10 AE D1 00043 CMPL POS-INS, REC_ADDR ; 0601 
04 if 90047 PGEQ 2$ ~ : 
04 «AE 1 8 049 BISB #1, FLAG ; 0603 
56 10 AE D1 90040 2$: CMPL POS_INS, REC_ADDR > 0605 
09 ls Fa BNEQ 3$ ~ 3 
04 44 «AY 03 3 0005 BBC #3, 68(IRAB), 3$ : 0607 
04 AE 01 8 baer BISB2 #1, Ae : 060 
OE 44 Ad 08 E1 9 C 3$: BBC #2, 68(IRAB), 4$ ; 061 
14 AE 0090 ¢ D0 0061 MOVL 144(IRAB), VBN : 0616 
OC AE 00A2 C9 BO 00067 MOVW 162(IRAB), NXTID : 0617 
of 11 00060 BRB 5$ : 
14 AE 008 C 06 $f 4$: MOVL 140(I1RAB), VBN ; 0621 
OC A OA 9 B 5 MOVW 160(IRAB), NXTID ; 06 § 
5 6 01 7B 5$: CMPL REC_ADDR, EO ; 06 
03 1B OOO7E BLEQU§ 7$ 3 
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10 
RM3RRV 1h-Sep=1984 02:00:67 VAX"11 BLiss-32_vé.0-7% p 6 
v0%=000 RMSUPDATE _RRV ease 18be FSibk 86 | NEAL FER hee she Samsanv.es2:1 2% 8 
60 52 i aS 002FD SUBS BEG_TABLE, TABLE, (BEG_TABLE) : 103) 
C BA O, POPR FMERD_R3 RG RSD : 
5 00306 RSB : 


; Routine Size: 775 bytes, Routine Base: RMSRMS3 + 005A 


; 976 1036 1 


ee ee, ee ee — cc 


nN 
Oo 


XSBTTL SRMSUPDATE RRV 2" 
GLOBAL ROUTINE RMSOPDATE_RRV_2 : RLSRABREG_4567 NOVALUE = 


Oooo 
Ww 
Owoon 


and the stv contains the actual status 


SIDE EFFECTS: 
rec_addr, ap, and bkt_addr are destroyed 
nxtBdb is released and cleare 
many buckets may be accessed and written out 


980 
98) \+4 
o86 4) ' 
+t rk: FUNCTIONAL DESCRIPTION: 
985 44 ' odate the rrv's from other buckets. Return with IRABCIRBS$V_RRV_ERR] set, 
B58 Re? _ f an error occurs during the update if it will cause the bucket to be trashed. 
988 hd ' CALLING SEQUENCE: 
989 bce ; bsbw rm$update_2 
990 4y ! 
991 050 ! INPUT PARAMETERS: 
99 051 ! NONE 
99 O26 : 
994 05 ! IMPLICIT INPUTS: 
995 054 : irab -- 
pas | 055 : nxtbdb -- referring to table of rrv's 
99 056 } vbn right, vbn mid, rfa_vbn 
998 057 : abovelckd - set when level 1 was locked coming down tree 
999 058 ! rab == to store stv in 
4 B28 idx_dfn, IFAB, impure area, for rm$getbkt 
O08 061 ! OUTPUT PARAMETERS: 
00 686 . NONE 
004 6 ' 
005 6 ! IMPLICIT OUTPUTS: 
006 6 } nxtbdb is released and cleared 
eB rrvlerr is set in the irab on any error 
0 6 ' ROUTINE VALUE: 
6 none -- rrv_err is set in the irab on any error 
' 
i 
i 
i 
i 
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BEGIN 

EXTERNAL REGISTER 
R_REC_ADDR_STR, 
COMMON RAB-STR, 
R_1DX_BFN_STR; 


LOCAL 
TABLE : REF BBLOCK, 
EOT; 
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INNER, 
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kK 10 | 
RMSRRY 16-Sep-1984 02:00:47 —VAX=11_BLiss-32_v4.0-74 Page 28 
v04=000 RMSUPDATE_RRV_2 1esep=198e 19:01:59 DISKSUMSMASTERS CRM SRCORMSRRV.B32;1°°%° (25, 
0 % BLK | 
99 BLOCK; 
39 BLOCK : | 
98 BEGIN 
9 | 
00 LOCAL 
9) ENTRY_SIZE; 
08 TABLE =, .BBLOCKT, IRABCIRBSL_NXTBDB], BOBSL_ADDRI; | 
4 EOT = .TABLE + . TABLELTBLSW-F FB); 
s TABLE = TABLE + 2; 
07 IF _.1FABLIFBSB_PLG_VER] LSSU PLGSC_VER_3 
09 ENTRY_SIZE = 7 


ENTRY_SIZE = 10; 
while there are still entries in the table, update each rrv individually 


pane - TABLE LSSU .EOT 


EWN O O00 NOU FU OO O00 NOU UO DO0 On 


SPERTRRRARALRAARARE RRR ERE EE 


a a ae a a et ka a td a id td ds as dd dd td 
a ce ce ee ce ee a me ee ee ee ee ed ed dd - 8 dd dd dd 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
110 
1 
118 
114 
i 
119 
113 2 BEGIN 
120 4 ! if the table wary has already been taken care of, its vbn has 
: ? been cleared, so ignore it. 
1 4 
124 4 IF .TABLECTBLSL_OLD_VBN] NEQ 0 
+ ¢ 125 4 
06 1 § 4 INNER : 
bo8 1 5 BEGIN 
06 128 5 
070 129 35 ! get the bucket to be updated 
071 130 5 : 
O76 131 5 BLK : 
07 1 § 6 BEGIN 
074 1 6 
075 134 6 LOCAL 
O76 135 6 ST 
07 136 6 SIZE; 
878 137 6 
7 138 6 SIZE = .IDX_DFNCIDX$B_DATBKTSZ)*512; 
pee + 4 ? IRABCIRB$B_CACHEFLGSJ~= CSHSM_LOCK; 
+44 141 8 ! if level above locked we must read the bucket with nowait to 
08 146 ! avoid potential deadlock situation 
084 1435 6 ! 
085 144 6 
O38 192 ? IF .IRABCIRB$V_ABOVELCKD) 
One 149 ° BBLOCKCIRABCIRBSB_CACHEFLGS], CSH$V_NOWAIT) = 1; 
090 149 6 ST = RMSGETBKT(.TABLECTBLSL_OLD_VBN], .SIZE); 
091 150 6 


wre 


oO 


$3333 


ALAIN ROPOROPOROPUnoNO Nh 3 2 BOO oo 
Seu FUSSSSRNEURUw OOM wo mrs obee SRELLS 


a aa a kk a a a ak a ak tk ak ak tk at a“ a ot a 2 2 a a a a a 


ee ce ce ee ee ee a ed ed dd 


BELLE ESE 
ONO UE WO 


10 
1b-S¢ -1984 02:00:47 

RMSUPDATE _RRV_2 1 ~3ep-19 4 96:90:38 
11 6 IF .ST 
11 THEN 
1} i LEAVE BLK; 
1155 IF .ST<O, 16> EQL RMSERR(RLK) 
11 § § THEN 
1 4 BEGIN 
11 § 7 ! we got a record lock error on the bucket so clear the flag 
1160 7 ' and release the level 1 bucket to remove the deadlock 
1183 7 } potential 
1188 ; IRABCIRBSV_ABOVELCKD) = 0; 
1164 7 DB = .IRABCIRBS$L_LOCK_BDB); 
1165 7 IRABCIRBS$L_LOCK_858) ="0; 
1188 4 RMSRLSBKT(O); 
1198 y } re-read the bucket we want and wait for it this time 
1190 7 IRABCIRBS$B_CACHEFLGS) = CSHSM_LOCK; 

os . o- Py 
171 ST = RMSGETBKT(.TABLECTBLSL_OCD_VBNJ, .SIZE) 
1198 7 IF .ST 
1174 7 THEN 
1175 7 LEAVE BLK; 
1176 7 
1177 6 END; 
1178 6 : 5 
1179 6 ! if here there was a hard failure on either the first or second 
1180 6 ! getbkt 
1181 6 ' 
1136 ¢ RABCRABSL_STV] = .ST; 
1183 6 IRABCIRBSY_RRV_ERR) = 1; 
1184 6 LEAVE INNER; 
1185 6 
1186 5 END; ' of local ST 
1187 6 BEGIN 
1188 6 
1189 6 LOCAL 
1190 6 PTR : REF BBLOCK; 
1191 6 
1138 ? PTR = .TABLE; 
1194 6 ! Do all the rrv's in this bucket that we have accessed. 
1195 6 ! through the rest of the table, comparing vbn's if we find 
1198 6 ' is the same as this one, take care of it now 
1197 6 ! 
1198 6 
1199 6 WHILE .PTR LSSU .EOT 
1200 § 
: 01 4 BEGIN 
1 08 7 IF .PTRCTBL$L_OLD_VBN) EQLU .TABLECTBLSL_OLD_VBN] 
1204 7 THEN 
1205 7 INNERMOST : 
! ; BEGIN 
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BUILTIN 
AP; 


Af 9g, FFABCIFCSS_PLG_VERI LSSU PLGSC_VER_3 


“ie AP = .PTRCTBL$B_OLD_1D] 
AP = ,PTRCTBL$W_OLD_ID); 


BEGIN 

LOCAL 
ST; 

ST = RMSFIND_BY_1D(); 

! If bad status returned (ex: could not find by RFA) 

' or this is NOT an RRV, or it is a DELETED RRV, 

then indicate error and mark entry done. 

if NOT .ST 


NOT .REC_ADDRCIRCSV_RRV) 
PHENO (*RECZADDR IRCSV-RRVJ AND .REC_ADDRCIRCS$V_DELETED) 


BEGIN 


! Indicates that this table entry has been taken 
care of. 


if .PTR NEQ . TABLE 
PTRCTBL$L_OLD_VBN) = 0; 


! If the current table entry indicates that the 

' corresponding record had not been deleted within a 
! Recovery Unit, then as there must be a RRV for it 
' somewhere this inability to find one represents an 
i error, Make sure that an RVU error will get returned 
! in this case so the user knows to expect that some 
RRV pointers in the file will be incorrect. 

| 


F NOT .PTRCTBLSV_RU_DELETE] 
THEN 
eceee 
RABCRABSL_STV) = ti 
IRABCIRBSV_RRV_ERR) = 1; 
END; 
LEAVE INNERMOST; 
END; 


END; ! { end of block defining st } 
IF .IFABCIFBSB_PLG_VER] LSSU PLGSC_VER_3 
BEGIN 


ns °she4 
MS.SRCIJRMSRRV.B32; 1 


4 
Sep-1 VAX=11 Bi ss-32_V 1 
RMSUPDATE_RRV_2 if: sep-1964 93:B053  DTSKSUMGMASTERSCRMS SRC SRMSRRV.832;1" 2% a) 
5 REC_ADDRCIRCSB_RRV_ID]_= .PTRCTBLSB_NEW_ID]; | 
6g RECCADDRLIRCSLAR RRV-VBNJ = RMSSELECT-VBNT.PTRCTBLSB_NEW_VBNJ); 
68 ELSE | 
§ BEGIN 
9 REC_ADD pRe TR $SW_RRV_ID]_ = .PTRCTBL$W_NEW_ID]; 
ft RE C-ADDR IRS$L-RRV-VBN] = RMSSELECT-VBNT.PTRCTBLSB_NEW_VBNJ); | 
7 oe 
74 PTRCTBLSL_OLD_VBN] = 0; 
if END; ' { end of vbns match <= innermost } 
6 PTR = .PTR + .ENTRY_SIZE; 
a END; ! {end of while loop } 
$} END; ! of local PTR 
8 
Hd 


} if we're done w/ this vbn, release it, writing it out 


BEGIN 
BDBLBDB$V_DRT) = 
BEGIN 


4 Ww PMIMINIPINININS 2 2 OOO ow ew 
Mew DO NONE OOO NHN PNM ODee 


TABLE = .TABLE + .ENTRY_SIZE; 
END; ! {end of while loop } 


END; ' { end of block } 
' Release the buffer we used as a work space can't use rm$risbkt since it 


84 
8 
8 
8 
8 LOCAL 
3 : ST; 
, Ay (ST = RMSRLSBKT(RLSSM_WR, THRU)) 
9 
; 1 ee 
4 TRABE RBS’ RRV WER ay": a 
33 > LEAVE INNER 
: 9 END; 
24 9 
24 . ee: ! { end of block defining st for call to rlsbkt } 
3 , END; ! {end of table entry is valid -- inner } 
2 0 
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3 7 
3 1 
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2 & makes too many checks & i've clobbered the buffer 
: » IRABEIRBSL NXTBDBJ; | 
ABC ASL dB] = 0; 
bbe BDB$B FLGs = 0; 
RRERELEASE ); 
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PSECT SUMMARY 
Name Bytes Attributes 
RMSRMS3 1189 NOVEC,NOWRT, RD, EXE,NOSHR, GBL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


eran ee Se Symbols -co----- Pages Processing 

: File Total Loaded Percent Mapped Time 

: -$255$DUA28: CRMS .OBJIRMS.L32;1 3109 78 2 154 00:00.4 

; BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:RM3RRV/OBJ=OBJ$:RM3Rkv MSRC$:RM3RRV/UPDATE=(ENH$:RM3RRV) 


; Size: 1189 code + 0 data bytes 
; Run Time: :29. 
; Elapsed Time: 00:57.4 
3; Lines/CPU Min: $6 69 

3; Lexemes/CPU-Min: 17387 

: emery Used: 302 pages 
oo a 
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